home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / ace_gpl_release / lib / Nisselib.lha / NisseLib / demos / Cursor.b < prev    next >
Encoding:
Text File  |  1996-09-19  |  1.4 KB  |  86 lines
  1.  
  2. #include <exec/types.h>
  3. #include <stdio.h>
  4. #include <linklibs/nisse.h>
  5.  
  6. /*
  7. * some of you perhaps know this source (well sort of).
  8. *
  9. * it's cursorcontrol from the F-Basic sampledisk.
  10. *
  11. */
  12.  
  13. CRTClrScr
  14. CRTCursOn
  15. printf("HELLO ")
  16. CRTCursDown(1)
  17. SLEEP FOR 1
  18. CRTCursUp(1)
  19. SLEEP FOR 1
  20. CRTCursLeft(1)
  21. SLEEP FOR 1
  22. CRTCursRight(1)
  23. SLEEP FOR 1
  24. printf("HELLO AGAIN")
  25. CRTGotoXY(6,19)
  26. SLEEP FOR 2
  27. CRTBell
  28. printf("screen beep from 6,19")
  29.  
  30. CRTGotoXY(20,6)
  31. printf("THIS IS AT 20,6\n")
  32. SLEEP FOR 2
  33. CRTGotoXY(1,1)
  34. printf("THIS IS AT 1,1")
  35. CRTClrEOL
  36. SLEEP FOR 2
  37. CRTGotoXY(4,10)
  38. FOR I=1 TO 10
  39. puts("THIS IS A TEST OF THE GREAT SYMBOL")
  40. NEXT I
  41. CRTCursRight(5)
  42. CRTCursUp(5)
  43. SLEEP FOR 2
  44. FOR I=1 TO 4
  45. CRTInsLine
  46. NEXT I
  47. CRTCursDown(5)
  48. SLEEP FOR 2
  49. CRTDelLine
  50. SLEEP FOR 2
  51. CRTClrEOS
  52. puts("")
  53. puts("ISNT THAT COOL?")
  54. CRTFrontPen(2)
  55. CRTBackPen(3)
  56. puts("THIS IS NOW A PUMPKIN??")
  57. SLEEP FOR 2
  58. CRTClrScr
  59. CRTCursOff
  60. puts("THIS IS INVISIBLE CURSOR")
  61. SLEEP FOR 2
  62. CRTCursOn
  63. puts("THIS IS VISIBLE CURSOR")
  64. SLEEP FOR 2
  65. FOR I=1 TO 10
  66.    puts("COLORS ARE EXCITING,AREN'T THEY?")
  67. NEXT I
  68. SLEEP FOR 2
  69. CRTStyle(TS_BOLD)
  70. puts("DO YOU LIKE BOLDFACE?")
  71. SLEEP FOR 1
  72. CRTStyle(TS_ITALICS)
  73. puts("HOW ABOUT ITALIC?")
  74. SLEEP FOR 1
  75. CRTStyle(TS_UNDERSCORE)
  76. puts("HOW ABOUT UNDERSCORE?")
  77. SLEEP FOR 1
  78. CRTStyle(TS_INVERSEVIDEO)
  79. puts("FINALLY, HOW ABOUT INVERSE-VIDEO?")
  80. SLEEP FOR 1
  81. CRTFrontPen(1)
  82. CRTBackPen(0)
  83. CRTStyle(TS_PLAIN)
  84. puts("WELL THAT ABOUT DOES IT FOR NOW!")
  85.  
  86.